Подключаем библиотеку DirectX

C этого момента нам станет доступен объект DirectInput

Дальше идея похожая, создаем объект DirectDraw из него DirectInput а дальше можно вызывать функции, например, показать панель настройки.

Dim objDirectX As DirectX7
Dim dri As DirectInput

Private Sub Command1_Click()
	dri.RunControlPanel (Form1.hWnd)
End Sub

Private Sub Form_Load()
    Set objDirectX = New DirectX7
Set dri = objDirectX.DirectInputCreate
End Sub

По нажатию на кнопку появиться панель управления.

Visual C++

Подключаем описание интерфейсов и библиотек. Взять их можно из проекта.

#if _MSC_VER > 1000
#pragma once
#endif // _MSC_VER > 1000

#include "dinput.h"
#pragma comment(lib,"dinput.lib")

/////////////////////////////////////////////////////////////////////////////
// CDImputDlg dialog

class CDImputDlg : public CDialog
......

Описываем переменную интерфейса

class CDImputDlg : public CDialog
{
// Construction
public:
	CDImputDlg(CWnd* pParent = NULL);	// standard constructor
	IDirectInput*           g_pDI;  
	// Dialog Data
	//{{AFX_DATA(CDImputDlg)
........

При инициализации диалога создаем объект.

BOOL CDImputDlg::OnInitDialog()
{
	CDialog::OnInitDialog();
	g_pDI       = NULL;
	HRESULT hr;
	hr = DirectInputCreate(AfxGetApp()->m_hInstance,DIRECTINPUT_VERSION, &g_pDI, NULL );
    	if FAILED(hr) 
   	{ 
	  return FALSE;
   	}

	// Add "About..." menu item to system menu.
	.......
}

По нажатию на кнопку вызываем панель управления.

void CDImputDlg::OnButton1() 
{
// TODO: Add your control notification handler code here
g_pDI->RunControlPanel(this->m_hWnd,0); 
}

А вот и результат.